Відокремлений структурний підрозділ Золочівський коледж
Національного університету «Львівська політехніка»
Циклова комісія природничо-математичних та комп’ютерних дисциплін
ЗВІТ
Про виконання лабораторних робіт
з дисципліни
«Алгоритмізація та програмування»
Студента 2 курсу ОПС-2 групи
Напряму підготовки
6.050101 Комп’ютерні науки
Спеціальності
5.05010101 Обслуговування програмних систем та комплексів
Бомк.Б.В.
Викладач Чіпак І.П.
м. Золочів – 2015 рік
Лабораторна робота №4
Тема. Розробка простих проектів в DELPHI. Обчислення виразів.
Мета: : закріпити та перевірити знання з основ програмування
в середовищі DELPHI..
Хід роботи
Отримати допуск до роботи у викладача, давши відповідь та теоретичні запитання.
Написати програми до завдань та реалізувати їх у середовищі Delphi
Скласти звіт,у якому зобразити теоретичні відомості, виконані програми та результати виконання програм,відповіді на контрольні питання та висновки до лабораторної роботи.
Захистити звіт у викладача.
Завдання 1. Розробити проект «Простий калькулятор» в якому можна знаходити суму двох введених чисел, різницю, добуток та частку.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,r:Real;
implementation
{$R *.dfm}
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Label1.Caption:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a+b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a-b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a*b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a/b;
Label1.Caption:=FloatToStr(r);
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
end.
[Додаток 1]
Завдання 2. Створіть проект «Cтандартні функції мови Delphi»
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
x,y:Real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToFloat(Edit1.Text);
y:=Sqr(x)+sqrt(abs(sin(x)+cos(x)))-sqr(sin(x));
Edit2.Text:=FloatToStrF(y,ffNumber, 6,3);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
[Додаток 2]
У Завдання 3. Розробити самостійно проект «Обмін долара на гривню»
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Edit2: TEdit;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1...
